home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 August / 1984-08.d64 / error trap_64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  666 b   |  20 lines
  1. 200 rem error trap routine
  2. 210 rem get line and message
  3. 220 gosub4000
  4. 230 print"[147]error detected"
  5. 240 printer$:print"error at line"ln
  6. 250 end
  7. 3000 data 169, 139, 141, 0, 3, 169, 227, 141, 1, 3, 165, 58, 141, 123
  8. 3010 data 3, 201, 255, 240, 39, 165, 57, 141, 122, 3, 142, 121, 3, 160
  9. 3020 data 0, 185, 124, 3, 153, 0, 2, 240, 3, 200, 208, 245, 162, 255
  10. 3030 data 160, 1, 76, 134, 164, 169, 60, 141, 0, 3, 169, 3, 141, 1
  11. 3040 data 3, 96, 108, 0, 3
  12. 3050 restore:forad=828to888:readva:pokead,va:nextad
  13. 3060 t$="goto"+str$(et)+chr$(0)
  14. 3070 forad=1tolen(t$):poke891+ad,asc(mid$(t$,ad,1)):nextad
  15. 3080 sys875:return
  16. 4000 en=peek(889):ifen>127thenend
  17. 4005 ea=peek(41766+2*en)+256*peek(41767+2*en):er$=""
  18. 4010 er$=er$+chr$(peek(ea)and127):ifpeek(ea)<128thenea=ea+1:goto4010
  19. 4020 ln=peek(890)+256*peek(891):return
  20.